<?	
	/* Se asegura que el archivo es incluido por el index */
	defined( 'LOAD_MODULE_ACTION' ) or die( 'No esta permitido el acceso directo a ' . __FILE__ );  
		$this->oTmpObject = new Poesia_frm( $this );
	
	class Poesia_frm extends Frm
	{
	function setValue ( $ncPoesia )
		{
			$cSql = "SELECT  cdPoesia,  cContenido,  ncPersona
				FROM gtPoesia
				WHERE ncPoesia = '$ncPoesia' ";
			$aDatos = $this->oDatabase->getArray($cSql);	
			$this->setFieldsArray ( $aDatos );
		}
	function Poesia_frm( &$oModule )
		{
			$this->Frm( $oModule );
			//Crea los Objetos de los campos de edicion
			$this->aFields['ncPoesia']			= new Input("Codigo","ncPoesia", '', false, true);
			$this->aFields['cdPoesia']			= new InputText( "Poesia", "cdPoesia" );
			$this->aFields['cContenido']		= new InputText( "Poesia", "cContenido" );
			$this->aFields['ncPersona']			= new InputList( "Autor", "ncPersona" );
			$this->aFields['aRotulo']				= new InputCheck( "Tags", "aRotulo" );
			
		}	
	function initializeForm()
		{
			// Si viene el Ubicacion hace el retrieve
				if ( $this->isRetrievable() && $this->aFields['ncPoesia']->getValue() )
				{
					$this->setValue( $this->aFields['ncPoesia']->getValue() );
				}
			// Configura el Titulo
				$this->setLabel( "Poesia" );	
			return true;
		}
	function initializeField( $cField , &$oField )
		{			
			switch ( $cField )
			{
				case 'aRotulo':
					if ($this->aFields['ncPoesia']->getValue()  )
					{
						$cSql = "SELECT Par.ncRotulo, Par.cdRotulo, Tab.ncPoesia
											FROM gtRotuloPoesia as Par
												LEFT JOIN gtPoesiaRotulo as Tab
													ON Par.ncRotulo = Tab.ncRotulo
													AND Tab.ncPoesia = " . $this->aFields['ncPoesia']->getValue()  . "
											ORDER BY Par.cdRotulo";
					} else
					{
						$cSql = "SELECT ncRotulo, cdRotulo
											FROM gtRotuloPoesia";
					}
					$oField->setMatrix( $this->oDatabase->getMatrix( $cSql ) );
					$oField->setMultiple( true );
				break;
				case 'cContenido':
						$oField->setLength(8024);
					break;
				case 'ncPersona':
					$cSql = "SELECT ncPersona, cNombre, cApellido FROM gtPersona";
					$oField->addColDescription(2);
					$oField->setMatrix($this->oDatabase->getMatrix($cSql));
					$oField->setMandatory($this->isMandatory());
					$oField->addActionArray( 2, $this->oModule->getActionArray( AGREGAR_PERSONA2) );
					$oField->addActionArray( 3, $this->oModule->getActionArray( MODIFICAR_PERSONA2) );
				break;
			}
 		}
	}
?>